home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / music / omiya / mirage_r.bas < prev    next >
BASIC Source File  |  1994-06-22  |  11KB  |  272 lines
  1.  1000 /*
  2.  1010 /*    ＭＩＲＡＧＥ （蜃気楼） New arranged version
  3.  1020 /*
  4.  1030 /*    Composed and arranged by ＯＭＩＹＡ / Tsuyoshi Okuaki
  5.  1040 /*    Programed and rearranged by ＯＭＩＹＡ
  6.  1050 /*
  7.  1060 /*    Copyright 1992,93 ＯＭＩＹＡ / Tsuyoshi Okuaki
  8.  1070 /*
  9.  1080 key 4,"list 10000-@M"
  10.  1090 key 8,"sa.@@H:\MIRAGE_S@M"
  11.  1100 key 18,"sa.@@d:\music\MIRAGE_S@M"
  12.  1110 key 7,"m_mute(11)@M"
  13.  7999 m_init()
  14.  8000 /* EXCLUSIVE
  15.  8010 dim char ARY(15)
  16.  8011 /* SOUND GENERATORS RESET
  17.  8012 ARY={&H7F,0,0,0} /* CM-64
  18.  8013 m_roland(&H10,&H16,ARY,4)
  19.  8014 ARY={&H40,0,&H7F,0} /* SC-55
  20.  8015 m_roland(16,&H42,ARY,4)
  21.  8016 /*
  22.  8020 /* CM-64 MUTE (CH.2-10)
  23.  8030 ARY={&H10,&H0,&HD,16,16,16,16,16,16,16,16,16}
  24.  8040 m_roland(&H10,&H16,ARY,12)
  25.  8050 /*
  26.  8060 /* CM-64 MASTER TUNE/REVERB/PARTIAL RESERVE
  27.  8070 ARY={&H52,&H0,&H0,&H38,0,1,1, 4,10,10,7,0,0}
  28.  8080 m_roland(&H10,&H16,ARY,13)
  29.  8090 /*
  30.  8100 /* CM-64 FREATLESS BASS RELEASE
  31.  8110 /*ARY={&H51,&H4,&H1, 0,40,12,50,12,0,127,0,1,15,127,64}
  32.  8120 /*m_roland(&H10,&H16,ARY,15)
  33.  8130 /*
  34.  8140 /* SC-55 MUTE (CH.11-16)
  35.  8150 ARY={&H40,&HFF,&H2,16}
  36.  8160 for z=10 to 15
  37.  8170   ARY(1)=&H10 or z
  38.  8180   m_roland(16,&H42,ARY,4)
  39.  8190 next
  40.  8200 /*
  41.  8210 /* SC-55 ANOTHER DRUMSET (ch.9)
  42.  8220 ARY={&H40,&H19,&H15,1}
  43.  8230 m_roland(16,&H42,ARY,4)
  44.  8240 /*
  45.  8250 /* SC-55 PARTIAL RESERVE
  46.  8260 ARY={2,9,2,1,4,0,0,0,2,4,0,0,0,0,0,0 }
  47.  8270 sc55_v_reserve(ARY)
  48.  8280 /*
  49.  8290 /* SC-55 REVERB ( HALL1 )
  50.  8300 ARY={&H40,&H1,&H30, 3,3,0,48,48,0,0}
  51.  8310 m_roland(16,&H42,ARY,10)
  52.  8320 /*
  53.  9999 /*         end
  54. 10000 /*
  55. 10005 ARY={20,19,19,10,11,11,12,13,21,14,22,23}
  56. 10010 for z=1 to 12 : m_alloc(z,3000)        : next
  57. 10020 for z=1 to 12 : m_assign(ARY(z-1),z)   : next
  58. 10030 m_tempo(90 )
  59. 10040 char s(64) : str p(99)[256]
  60. 10060 str a[256],b[256],c[256],d[256],sc,cm
  61. 11000 sc="@I$41,17,$42"
  62. 12000 write_assign(19,"K+3")
  63. 20000 /*        ＢＡＳＳ
  64. 20010 p(0)="@28 p3 v12 q8 l8  o2 @K0 @u96     t90           r8
  65. 20015 p(99)="[@]"
  66. 20020 p(1)="r1 r1 c2..(c8g)<c1  f2>f.c.>f g2g+2 a2g2 f1 g1&g1<
  67. 20030 p(2)="o2 |: c2c4.c>b2b4.g a2a4.a f2g4.d :|
  68. 20040 p(3)="f2f4.f g4.db.g.d e2e.<c.>b a2g.f.g
  69. 20050 p(4)="f2f4.(cf) f2f.<f.>f g2g4.<(cg)g2&g4&(g4>g)
  70. 20060 p(5)="r1 r2..@K-64@u+24g+16&@K0g+16 g1 @u-24f+2g4f+4
  71. 20065 /*p(5)=p(5)+"f2&f@K-64a32&@K0a32&a.f g4.<@K-64d16&@K0d16&d>b&bg a4.a&a2 a1
  72. 20066 p(5)=p(5)+"f4.f4f4. g4.g4g4. a4.a8^2 a1
  73. 20070 p(6)="|:15 r2 :| <g4>g4
  74. 20080 p(7)="o2 r2..c>b1 r1 f2g.b16&b4<
  75. 20090 p(8)="c2c4.>g b2<d4.>b a2a.<e.d> f2g2
  76. 20100 p(9)="f1 g1 e1 L*16<e>a<cde>a g<fedc>b L8
  77. 20110 p(10)="|:8 f4:| |:6 g4:| g2
  78. 24000 s={0,1,2,3,4, 5, 6,2,3,4, 7,8,9,10, 255}
  79. 24050 write(1)
  80. 25000 /*        ＤＲＵＭＳ
  81. 25010 p(0)="@1  p3 v14    l8  o2 @K0 @u96 "+sc+" @E52,20 @R1 @n18 v13 @n19 v13 @E52,20
  82. 25011 p(80)="@Y$1A,48,100 @Y$1A,47,100 @Y$1A,45,100 @Y$1A,43,100 @Y$1A,41,100
  83. 25012 p(81)="@Y$1A,49,114 @Y$1A,57,114
  84. 25020 p(1)="@Y$18,40,59 @Y$1A,36,96 @Y$1D,51,32 r8 |:10 r1:|
  85. 25030 p(2)="<c+*0>|:8 c4e8.c16 c4e4:|
  86. 25040 p(3)="<c+*0>|:4c4e8.c16c4e4:|<c+*0>|:4c4e8.c16|c4e4:|L16<c64c..r>a64a..rg64g..L8
  87. 25050 p(4)="r1r1r1 r2. @u16<|:8 U+4 @n19 a64 U+4 @n18 a64 :|>@n19 @u96
  88. 25060 p(5)="<a*0>c4e4cce4 c4ecrce4 c4e4cce4 c4e4r2
  89. 25070 p(6)="|:7 r1:| r2 <c64c16..>agf
  90. 25080 p(7)="r1 r1 r1 r2 @u65 |:4 U+11 g*0<c+*0>d*16 :| |:g*0<c+*0>d*16:| @u96
  91. 25090 p(8)="<a*0>|:4 c4 e8c8|c4 e4:| L16<c64c..r>a64a..g64g..rL8
  92. 25100 p(9)="r1 r1 r1 r2L16<c64c..r>a64a..g64g..rL8
  93. 25110 p(10)="|: g*0<c+*0>d2 |1 L*16<c>bgagf:| |2 r2 @u60 |:48 @n18 U-1 a+64 @n19 U-1 a+64 :|
  94. 25120 p(11)="<a*0>c4e4 c4ec |:c4e4rce4:| c4e2.
  95. 26000 s={0,81,1,2,3,4,5,6, 2,3,4,11, 7,8,4, 9,10, 255}
  96. 26050 write(2)
  97. 27000 /*        ＤＲＵＭＳ HI-HAT
  98. 27010 p(0)="              l8  o2 @K0 @u56               @R1
  99. 27020 p(1)="@Y$18,46,62 @Y$1C,46,86 r8 |:10 r1:|
  100. 27030 p(2)="|:8 @u56a+ @u-18a+ @u+28a+ @u-20a+ :|
  101. 27040 p(3)="< |:28 @u86 d+ @u-24 d+:| d+*0> r1
  102. 27050 p(4)="|:4 r1 :|
  103. 27060 p(5)="|:7 @u56a+ @u-18a+ @u+28a+ @u-20a+ :| a+a+*2a+*6|:a+*8:|a+r
  104. 27070 p(6)="|:8 r1:|"
  105. 27080 p(7)="r1 r1 r1 r1
  106. 27090 p(8)="|:7 @u56a+ @u-18a+ @u+28a+@u-20a+ :| a+*0r2
  107. 27100 p(9)="|:7 @u56a+ @u-18a+ @u+28a+@u-20a+ :| @u40 |:4 U+16 a+ :|
  108. 28000 s={0,1,2,9,3,4,5,6,  2,9,3,4,5, 7,8, 255}
  109. 28050 write(3)
  110. 30000 /*        ＭＥＬＯＤＹ
  111. 30010 p(0)="@66 p3 v13 q8 l8  o4 @K0 @u102"+sc+" @E64,36    r8
  112. 30020 p(1)="@H72 @M32 |:10 r1:|
  113. 30030 p(2)="r>g<cde4.f f.e16&e4&e2 r4ed16e.&e4f fedce.d16&d4
  114. 30040 p(3)="r>g<cde4.e eg16e16&e4&e2 r4effeaf e4.f16e16d2
  115. 30050 p(4)=">a2&aab<c d1 d2&ddef f4.g16f16e2 f2&fcde fcgcga&ab& b2ra&ab&b1
  116. 30060 p(5)="|:3 r4.eab16<c16&| c4 :| c16e.d2.>ab
  117. 30070 p(6)="<c>b16<c16&c2>a<c ed&d4.>g4b& ba&a2.&a1
  118. 30080 p(7)="|:8 r1:| |:16 r1:|
  119. 30090 p(8)="o3 rg<cd& e4{edc}4 d4 rc+64d32.c16 >b2 <r4c4e4{edc}4 d4.b16a16&g2
  120. 30100 p(9)="o3 rg<cd& e4{edc}4 d4 rc+64d32.c16 >b2  r4ab<c>b16<c16&ce d4.d16c16>b2
  121. 30110 p(10)="a2rab<c &d1 d2&ddef f4.g16f16e2
  122. 30120 p(11)="r1 r1 r1 r1
  123. 30130 p(12)="o3 rg<cd& e4{edc}4 d4 rc+64d32.c16 >b2  r4ab<c>b16<c16&ce d4.d16c16>b.<c.d
  124. 30140 p(14)="o3 rg<cd& e4{edc}4 d4 rc+64d32.e16 >b2  r4ab<c>b16<c16&ce d4.d16c16>b.<c.d
  125. 30150 p(15)=">t-12a2g+64a*33b.<c>t-15 b2a4b4 < @E127,48 c1
  126. 31000 s={0,1,2,3,4, 5,6, 7, 8,9, 10,11, 12,13,14,15, 255}
  127. 31500 write(4)
  128. 40000 /*        ＰＩＡＮＯ RIGHT-HAND
  129. 40005 a="Z110,82
  130. 40006 b="Z100,88
  131. 40007 c="Z116,88,96,100,104,108,112,116
  132. 40010 p(0)="@1  p3 v13 q8 l8  o4 @K0 @u96 "+sc+" @E40,20    r8
  133. 40020 p(1)=b+"|: |:4 'fg',0c:| |:4 'eg'c:| :|
  134. 40030 p(2)=b+"|:'fa'c:|>'a<cf'fa<c> |:'b<d'g:||:'b<d'g+:|
  135. 40040 p(3)=b+"|:'<ce'a:| |:'b<d'g:| |:4 'a<ce'f:| |:6 'b<d'g:| '<d2g'<
  136. 40050 p(4)=b+"o4 |:4 'eg'c:|>|:4 '<dg'b:||:4 '<ce'a:||:'a<c'f:||:'b<d'g:|<
  137. 40060 p(5)=b+">|:4 'a<c'f:| |:4 'b<d'g:| |:4'gb<d'e:| |:'<ce'a:||:'b<d'g:|
  138. 40070 p(6)=b+"|:8 'a<c'f:| |:6 'b<d'g:|'g2b<d'
  139. 40080 p(7)=b+"|:3'<ce'a:|<ce> |:3'<ce'a-:|<ce> |:3'<ce'g:|<ce> 'f+2a<d''g4a<d''f+4a<d'
  140. 40090 p(8)=c+"@d1 fa<cefa<ce>> @d0 @d1gb<degb<de>> @d0@d1 a<cea<cea<c@d0 >'e1a<c',6>
  141. 40100 p(9)="o4"+a+"|:7 'fa',0c:| @u+14'cfa''dgb' "+a+" |:7 'a<c'e:| @u+10 'ca<c''dgb'
  142. 40110 p(10)=a+"|:8 'fa'c:| |:4 'gb'd:| |:'g<c'd:| 'd2b' Z"
  143. 40120 p(11)="@u96 r1 r1 r1 'a2<ce''g2b<d'
  144. 40130 p(12)=b+"|:6 'a<c'|f:| 'c<c' Z L*16 'fa<c'@u+8'a<cf'<@u+6'ceg' 'ac<f'@u-14'ga<c''fa<c' > L8
  145. 40140 p(13)=b+"|:6 'bd'g :| 'g2bd'
  146. 40150 /*p(14)="o4 |:4 'eg'c:|>|:4 '<dg'b:||:4 '<ce'a:||:'a<c'f:||:'b<d'g:|<
  147. 40160 p(15)=">'f2a<c' L*16 @u+12<'f<cf''ca<c'>'a<fa'<'ca<c'>'f<cf''a<fa' 'g1b<d' @u76 'c1^1degb'
  148. 41000 s={0,1,2,3,4,4,5,6,7,8, 9,10,
  149. 41020     4,4,5,6, 4,4, 11,12,13,4,4,15, 255}
  150. 41500 write(5)
  151. 42000 /*        ＰＩＡＮＯ LEFT-HAND
  152. 42010 p(0)="           q8 l8  o2     @u96                   r8
  153. 42020 p(1)="|:4 @d1 'c2..<c'g @d0:|
  154. 42030 p(2)="@d1>'f1<f'@d0 @d1'g2<g'@d0@d1'g+2<g+'@d0
  155. 42040 p(3)="@d1 'a2<a'@d0 @d1'g2<g'@d0@d1'f1<f'@d0 @d1'g1<g'&@d0@d1'g1<g'@d0<
  156. 42050 p(4)="o2 @d1'c1<c'@d0>@d1'b1<b'@d0@d1'a1<a'@d0 @d1'f2<f'@d0@d1'g2<g'@d0<
  157. 42060 p(5)="@d1>'f1<f'@d0 @d1'g1<g'@d0@d1'e1<e'@d0 @d1'a2<a'@d0@d1'g2<g'@d0
  158. 42070 p(6)="@d1 'f1<f'&'f1<f' @d0@d1 'g1<g'&'g1<g'@d0
  159. 42080 p(7)="@d1 'a1<a'@d0 @d1'a-1<a-'@d0@d1'g1<g'@d0@d1'f+2<f+'@d0@d1'g4<g''f+4<f+'@d0
  160. 42090 p(8)="@d1 'f1<f'@d0 @d1'g1<g'@d0 @d1 'a1<a'& @d0@d1 'a1<a' @d0
  161. 42100 p(9)="o2 @d1 'f1<f' r2.'f<f''g<g' @d0@d1 'a1<a' r2.'a<a''g<g'@d0
  162. 42110 p(10)=" @d1 'f1<f' r1 @d0@d1 'g1<g' r1 @d0
  163. 42115 p(11)="r1 r1 r1 @u+20 L*16<'e<e'>'a<a'<'c<c''d<d''e<e'>'a<a' 'g<g'<'f<f''e<e''d<d''c<c'>'b<b' L8 @u-20
  164. 42120 p(12)="|: @d1 'f1<f' @d0:|
  165. 42130 p(13)="|: @d1 'g1<g' @d0:|
  166. 42140 p(14)="
  167. 42150 p(15)=">'f1<f''g1<g' 'c1^1g<c'
  168. 43000 s={0,1,2,3,4,4,5,6,7,8, 9,10,
  169. 43020     4,4,5,6,   4,4, 11,12,13,4,4,15, 255}
  170. 43500 write(6)
  171. 45000 /*        ＧＵＩＴＡＲ
  172. 45010 p(0)="@25 p3 v15 q8 l8  o4 @K0 @u96 "+sc+" @E40,20    r8
  173. 45020 p(1)="|:10 r1:|
  174. 45030 p(2)="|:8 r1:|
  175. 45040 p(3)="r4.ggg16g16&g16.f16.e16 f4.e16c16&c4r4 r4c>b16<c16&c4.e d4 ca16g16&g2
  176. 45050 p(4)="r4c>b16<c16& c4.e8 ed>bg&g2 r4ab<cdgf e4.e64f32.e16 d2
  177. 45060 p(5)="aa16a16&a4&aab<c &d1 d2rdef g2f4.g16f16
  178. 45070 p(6)="b4.<c&c.>>b.<c c4.>b {fga}4<{agf}4g2. rg+64a32.b16&b1
  179. 46000 s={0,1,2,2,2,2,
  180. 46020     3,4, 5,6,255}
  181. 46500 write(7)
  182. 47010 p(0)="@25@p80v10 q8 l8  o4 @K8 @u96 "+sc+" @E40,20    r8 r8.
  183. 48000 write(8)
  184. 50000 /*        ＳＴＲＩＮＧＳ
  185. 50010 p(0)="@36 p1@v44 q8 l8  o5 @K-2@u64                   r8
  186. 50020 p(1)="r1 r1  'c1g'&'c1g'  r1 r2'd4b''d4<f' '<c2e''b2<d' 'a1<c'  'b1<d'&'b1<db'
  187. 50030 p(2)="r1 r1 r1 r1
  188. 50040 p(3)="r1 r1 <c1> 'a2<f''g2<d'
  189. 50050 p(4)="'a1<c' 'b1<d' <'e1g' 'c2e'>'b2<d'
  190. 50060 p(5)="'a1<c' <'c1f' >'b1<d' <'d1g' >
  191. 50070 p(6)="r1 r2..'e8<e' 'g1<e' 'a1<d'
  192. 50075 p(6)="r1 r1 r1 'a1<d'
  193. 50080 p(7)="'a2.<e'<f>'b<e'& 'b1<e' 'a1<e'&'a2<e'r2
  194. 50090 p(8)="@37 >a1&a2..<c> a<eba&a2> a<eba&a2>
  195. 50100 p(9)="'c4.f''fa''f4.a''a<c' 'a4.<c'<'cf''fa''a<c'<'cf''fa'> 'b1<d' 'b1<g'< @36
  196. 50110 p(10)="c1 d2d.g.>b< e1 a4.<c16>b16&b2
  197. 50120 p(11)="<c1> b2g4.b >a4.<e16a16& a16e16>a&a.e16 f4.a16g16&g2
  198. 50130 p(12)="f2&ffga b2.gd b2&bb<cd e2d4.c16>b16 g4.a&a2 g4.a&a2 b1 g1
  199. 50140 p(13)="r2..'e<c' 'd1b' r1 'c2f''d4b'@u+36'>g4b<dgb<d',8@u-36
  200. 50150 p(14)="'e1<c',0'd1b' 'e1<c' 'a2<f''g2b'
  201. 50160 p(15)="r1 r1 r1 r2.@u+36'>g4b<dgb<d',8@u-36
  202. 50170 p(16)="'c1a',0 'e1<c' 'd1b' 'g1<d'
  203. 51000 s={0,1, 2,3, 4,5, 6,7, 8,9, 10,11,12,
  204. 51020      13,14,15,16,  255}
  205. 51500 write(9)
  206. 52010 p(0)="@36 p2@v44 q8 l8  o5 @K6 @u64                   r8 r*1
  207. 53500 write(11)
  208. 55000 /*        ＨＯＲＮ
  209. 55010 p(0)="@49@p72v13 q8 l4  o3 @K0 @u82 "+sc+" @E40,60    r8
  210. 55020 p(1)="r1 r1 r1 r1 r1 r2<df e2d2 c1 >b1& b1
  211. 55030 p(2)="r1 r1 r1 r1
  212. 55040 p(3)="r1 r1 r1 <c2>b2
  213. 55050 p(4)="f2.g8a8 b2g4.d8 b2.<c8d8> e2d4.g8
  214. 55060 p(5)="c1 e2&e8e8f8g8 d2.g d1
  215. 55070 p(6)="r1 r2..a-8 g1 a2g4f+4
  216. 55075 p(6)="r1 r1 r1 a2g4f+4
  217. 55080 p(7)="f2&f8a8<c8e8& e8d>bg. <c1&c2r2>
  218. 55090 p(8)="r1 r1 r1 r1
  219. 55100 p(9)="r1 r1 r1 r1
  220. 55110 p(10)="L8 c1 d2d.g.>b< e1 a4.<c16>b16&b2
  221. 55120 p(11)="<c1> b2g4.b >a4.<e16a16& a16e16>a&a.<e16 f4.a16g16&g2
  222. 55130 p(12)="f2&ffga b2.gd b2&bb<cd e2d4.c16>b16 g4.a&a2 g4.a&a2 b1 g1 L4
  223. 55140 p(13)="<r2..c8 >b1 r1 f2g8.b16&b4 <c2..>g8 b1 a2a8.<e8.d8> f2g2
  224. 55150 p(14)="r1 r1 r1 r1 f1 a1 g1 d1
  225. 56000 s={0,1, 2,3, 4,5, 6,7, 8,9, 10,11,12,
  226. 56020    13,14,       255}
  227. 56500 write(10)
  228. 57000 /*        ＢＲＡＳＳ
  229. 57010 p(0)="@53 @p56 v11 q8 l4  o3 @K-8@u88                   r8
  230. 58500 /*write(12)
  231. 60000 m_play()
  232. 60010 end
  233. 60020 func write(t)
  234. 60030 int i=0
  235. 60040   while s(i)<>255
  236. 60050     m_trk(t,p(s(i)))
  237. 60060     i=i+1
  238. 60070   endwhile
  239. 60090 endfunc
  240. 60220 func fre()
  241. 60230 int t
  242. 60240   for t=1 to 12
  243. 60250     print using " ##: ####   ";t,m_free(t);
  244. 60260   next
  245. 60270   print
  246. 60280 endfunc
  247. 62100 func tcnt()
  248. 62110 int st,ed
  249. 62120   st=tvl(): m_play()
  250. 62130   while 1
  251. 62134     locate 0,csrlin : print tvl()-st;
  252. 62140     if m_stat()=0 then break
  253. 62150   endwhile
  254. 62160   ed=tvl()
  255. 62170   print ed-st
  256. 62180 endfunc
  257. 62190 func tvl()
  258. 62200   int v
  259. 62210   v=val(mid$(time$,1,2))*3600
  260. 62220   v=v+val(mid$(time$,4,2))*60
  261. 62230   v=v+val(mid$(time$,7,2))
  262. 62240   return(v)
  263. 62250 endfunc()
  264. 65000 func write_assign(dr,KY;str)
  265. 65010 int t : str tmp
  266. 65020   for t=1 to 12
  267. 65025     tmp="@n"+itoa(ARY(t-1))+" @G12 "
  268. 65026     if ARY(t-1)<>dr then tmp=tmp+KY
  269. 65030     m_trk(t,tmp)
  270. 65040   next
  271. 65050 endfunc
  272.